home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / JORF21-2.ZIP;1 / JORFFILS.ZIP / DOS.J < prev    next >
Encoding:
Text File  |  1993-07-05  |  2.0 KB  |  63 lines
  1. Dos:Start
  2.   Win:Add("Jo's DOS Function Utility", 0, 0, 20, 44)
  3.    This program allows the user to &
  4.    select special DOS commands.
  5.  
  6.    Place your mouse over the desired &
  7.    selection and click the Left Mouse &
  8.    Button or you may use the up and down &
  9.    arrow keys to select the desired command.
  10.  
  11.    {Group:"DOS Commands" Row:9 Col:5 Len:10 Wid:30}
  12.     {Prompt:"&Memory Stats     " Row:11 Col:7 Wid:25 Action:"Dos:Cmd('Mem')"}
  13.     {Prompt:"&Command Shell    " Row:12 Col:7 Wid:25 Action:"Dos:Cmd('Shell')"}
  14.     {Prompt:"Directory by &Date" Row:13 Col:7 Wid:25 Action:"Dos:Cmd('DirDate')"}
  15.     {Prompt:"Directory by &Size" Row:14 Col:7 Wid:25 Action:"Dos:Cmd('DirSize')"}
  16.     {Prompt:"&Type in a Command" Row:15 Col:7 Wid:25 Action:"Dos:Cmd('TypeIt')"}
  17.     {Prompt:"&Windows Program  " Row:16 Col:7 Wid:25 Action:"Dos:Cmd('Windows')"}
  18.     {Prompt:"E&xit             " Row:18 Col:7 Wid:25 Action:"Return(Null)"}
  19.   Return (Ok)
  20.  
  21. Dos:Cmd(Action)
  22.   New (Command, Flags, Message)
  23.   Switch (Action)
  24.     Case 'Mem'
  25.       Command = "Mem /c | More"
  26.       Flags = "CP"
  27.     Case 'Shell'
  28.       Command = Null
  29.       Flags = "C"
  30.       Message = "Type 'EXIT' to return to JORF"
  31.     Case 'DirDate'
  32.       Command = "Dir /o-d | More"
  33.       Flags = "CP"
  34.       Message = "Sorting . . ."
  35.     Case 'DirSize'
  36.       Command = "Dir /o-s | More"
  37.       Flags = "CP"
  38.       Message = "Sorting . . ."
  39.     Case 'TypeIt'
  40.       Win:Add
  41.         Input:"Command to execute:", Field:"Command"
  42.       If (Kbd:Got=='Esc_Key')
  43.         Return
  44.       Flags = "C"
  45.     Case 'Windows'
  46.       If (Jorf:Info("Windows")==False)
  47.         Msg:Add
  48.           This option only works in the &
  49.           Windows version of the JORF interpreter.
  50.         Return
  51.       Win:Add
  52.         Input:"Windows program:", Field:"Command"
  53.       If (Kbd:Got=='Esc_Key')
  54.         Return
  55.       Flags = "W"
  56.     Else
  57.       Msg:Add
  58.         Illegal DOS Command "{Action}".
  59.       Return (Ok)
  60.   Jorf:System (Command, Flags, Message)
  61.   Return (Ok)
  62.  
  63.